#This is to run a PCA with ExPosition on the French social class/spending data set.

#is ExPosition loaded?

#You'll need to load a new data set
data(french.social)
#name your data set something.
class.spend <- french.social$data
#The following line is called "casting". class.spend is casted as a data frame
class.spend <- as.data.frame(class.spend)
#make the class.spend dataset active for R Commander -- ONLY use this line if you are using R Commander.
#activeDataSet("class.spend")
#Perform a PCA on the class.spend data set.
res<-epPCA(class.spend , scaleFlag=TRUE, centerFlag=TRUE, graphs =TRUE)